home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 July / Disc 1 / PCU0703CD1.iso / software / online / files / imacros.exe / RANDOM-NUMBERS.VBS < prev    next >
Encoding:
Text File  |  2003-01-14  |  1014 b   |  52 lines
  1. Option Explicit
  2. Dim iim1, iret
  3. Dim rn, i, keyword
  4.  
  5. MsgBox ("This example script submits random information to a website")
  6.  
  7. set iim1= CreateObject ("iimwsh.iim")
  8. iret = iim1.iimInit
  9.  
  10. 'Run 3 times
  11. for i = 1 to 1
  12.  
  13. iret = iim1.iimDisplay("Generating number")
  14.  
  15. 'Create random number between 1 and 5
  16. Randomize
  17. rn = cint (rnd()*5 + 1)
  18.  
  19. iret = iim1.iimDisplay("Number=" + cstr(rn))
  20.  
  21. select case rn
  22.   case 1:
  23.    keyword = "Sunshine"
  24.   case 2:
  25.    keyword = "Snow"
  26.   case 3:
  27.    keyword = "Rain"
  28.   case 4:
  29.    keyword = "Wind"
  30.   case 5:
  31.    keyword = "clouds" 
  32.  case else:
  33.    keyword = "This should not happen"
  34. end select
  35.  
  36.  'Set the variables
  37.    iret = iim1.iimSet("-var_mynumber", cstr(rn))
  38.    iret = iim1.iimSet("-var_mytext", keyword)
  39.   
  40.  'Run the macro
  41.    iret = iim1.iimPlay("wsh-random")
  42.    If iret < 0 Then
  43.       MsgBox iim1.iimGetLastMessage()
  44.    End If
  45.  
  46. next
  47.  
  48. iret = iim1.iimDisplay("Done!")
  49. iret = iim1.iimDisplay("#HIDEDISPLAY")
  50. 'iret = iim1.iimExit
  51. WScript.Quit(0)
  52.